home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 12 / 06 / microdot 1.6 / microdot-install / install-microdot < prev    next >
Encoding:
Text File  |  1995-06-01  |  14.3 KB  |  648 lines
  1. ;
  2. ; Installer-Script for MicroDot
  3. ;
  4. ; $VER: MicroDot-Install 1.6 (10.01.94)
  5. ;
  6.  
  7. (set #install-where-msg
  8. (cat    "Möchten Sie MicroDot auf Diskette "
  9.         "oder auf Festplatte installieren?"
  10. ))
  11.  
  12. (set #install-where-help
  13. (cat    "\nHier entscheiden Sie, ob MicroDot auf Disketten "
  14.         "oder, falls vorhanden, auf Ihre Festplatte installiert "
  15.         "werden soll.\n\n"
  16.         "Wenn Ihr Amiga-System mit einer Festplatte ausgerüstet "
  17.         "ist, sollten Sie MicroDot auf jeden Fall dort "
  18.         "installieren."
  19. ))
  20.  
  21. (set #install-hd-msg
  22. (cat    "Wohin soll das MicroDot-Verzeichnis "
  23.         "installiert werden?"
  24. ))
  25.  
  26. (set #install-hd-help
  27. (cat    "\nHier müßen Sie angeben, wo auf Ihrer "
  28.         "Festplatte das MicroDot-Verzeichnis installiert werden "
  29.         "soll.\n\n"
  30.         "Das Installationsprogramm erzeugt dann in dem von Ihnen "
  31.         "angegebenen Verzeichnis eine neue Schublade mit dem "
  32.         "Namen \"MicroDot\".\n\n"
  33.         "Sie sollten MicroDot nach Möglichkeit NICHT auf einer Partition "
  34.         "installieren, die mit dem DirCache-FileSystem formatiert ist."
  35. ))
  36.  
  37. (set #floppy-askformat-msg
  38. (cat    "Für eine Disketteninstallation benötigen Sie "
  39.         "zwei formatierte Disketten mit den Namen "
  40.         "\"MD-MAIN\" und \"MD-DATA\". Sie können die "
  41.         "Disketten jetzt formatieren lassen oder "
  42.         "selbst formatierte Disketten verwenden."
  43. ))
  44.  
  45. (set #floppy-askformat-help
  46. (cat    "\nHier entscheiden Sie, ob jetzt die "
  47.         "für die MicroDot-Installation "
  48.         "benötigten Disketten formatiert "
  49.         "werden sollen.\n\n"
  50.         "Sie können problemlos auch selbst formatierte "
  51.         "Disketten verwenden, wenn Sie ein besonderes "
  52.         "Format oder Disketten verschiedener Größe "
  53.         "verwenden wollen."
  54. ))
  55.  
  56. (set #format1-msg
  57. (cat    "Bitte legen Sie die erste zu formatierende "
  58.         "Diskette in das Laufwerk DF0:\n\n"
  59.         "Diese Diskette ist später Ihre MicroDot-Datendiskette "
  60.         "und trägt dann den Namen \"MD-DATA:\"."
  61. ))
  62.  
  63. (set #format2-msg
  64. (cat    "Bitte legen Sie die zweite zu formatierende "
  65.         "Diskette in das Laufwerk DF0:\n\n"
  66.         "Diese wird danach ihre MicroDot-Hauptdiskette "
  67.         "mit dem Namen \"MD-MAIN\". Auf dieser Diskette "
  68.         "wird das Hauptprogramm installiert."
  69. ))
  70.  
  71. (set #format1-cmd "sys:system/format <ram:..MDINST.. drive df0: name MD-DATA noicons")
  72. (set #format2-cmd "sys:system/format <ram:..MDINST.. drive df0: name MD-MAIN noicons")
  73. (set #format-tmp "ram:..MDINST..")
  74. (set #format-err-msg "Fehler Nr. %ld beim Formatieren der Diskette!")
  75. (set #format1-busy "Formatiere erste Diskette...")
  76. (set #format2-busy "Formatiere zweite Diskette...")
  77.  
  78. (set #copying-reqtools "Kopiere reqtools.library nach Libs:")
  79. (set #copying-aguide "Kopiere amigaguide.library nach Libs:")
  80.  
  81. (set #want20
  82. (cat    "Möchten Sie die spezielle MicroDotAGA-Version für OS 3.0 "
  83.         "und 68020+ installiert haben? "
  84.  
  85. ))
  86. (set #want20-help
  87. (cat    "Sie haben ein Amiga-System mit OS 3.0 oder größer "
  88.         "und einem %s Prozessor.\n\n"
  89.         "Möchten Sie die spezielle MicroDotAGA-Version für solche "
  90.         "Konfigurationen installiert haben?"
  91. ))
  92.  
  93. (set #insert1-msg
  94. (cat    "Bitte legen Sie die Diskette mit dem Namen "
  95.         "\"MD-MAIN\" ein."
  96. ))
  97.  
  98. (set #insert1-help
  99. (cat    "Für die weitere Installation wird jetzt die zweite "
  100.         "vorhin formatierte Diskette mit dem Namen \"MD-MAIN\" "
  101.         "benötigt.\n\n"
  102.         "Falls Sie vorhin keine Disketten formatiert haben und "
  103.         "keine selbst formatierten Disketten mit den richtigen "
  104.         "Namen haben, brechen Sie die Installation jetzt ab "
  105.         "und starten Sie sie danach neu."
  106. ))
  107.  
  108. (set #cfgexist-msg
  109. (cat    "Es existiert bereits eine Prekonfigurationsdatei für "
  110.         "ihr System, die beim ersten Start von MicroDot automatisch "
  111.         "gelesen wird."
  112. ))
  113.  
  114. (set #cfgexist-help
  115. (cat    "Es wurde eine Datei \"microdot.cfg\" gefunden, die "
  116.         "die Parameter für Ihr Pointsystem, wie den Usernamen "
  117.         "oder die Telefonnummer der Box enthält. Eine weitere "
  118.         "Konfiguration des Points ist daher nicht unbedingt notwendig.\n\n"
  119.         "Trotzdem sollten Sie auf jeden Fall die Einstellunge überprüfen."
  120. ))
  121.  
  122. (set #taconv-msg
  123. (cat    "Möchten Sie die Parameter Ihrer TheAnswerII-Konfiguration "
  124.         "übernehmen? "
  125. ))
  126.  
  127. (set #taconv-help
  128. (cat    "Es wurde eine Datei \"S:AnswerII.cfg\" gefunden, die eine "
  129.         "Konfiguration für das Pointprogramm The Answer enthält.\n\n"
  130.         "Es ist möglich, die dort eingestellten Parameter in "
  131.         "MicroDot zu übernehmen.\n\n"
  132. ))
  133.  
  134. (set #ta3conv-msg
  135. (cat    "Möchten Sie die Parameter Ihrer \"The Answer 3.00\"-Konfiguration "
  136.         "übernehmen? "
  137. ))
  138.  
  139. (set #ta3conv-help
  140. (cat    "Wenn Sie eine \"The Answer 3.00\"-Installation besitzen, können Sie "
  141.         "hiermit die Parameter und die Nachrichtendatenbank übernehmen.\n"
  142.         "Dazu müssen sich die Konfigurationsdateien im Verzeichnis "
  143.         "ENV:ANSWER/ befinden."
  144. ))
  145.  
  146. (set #converter-msg    "Möchten Sie eine bestehende Point-Konfiguration übernehmen? " )
  147.  
  148. (set #converter-help
  149. (cat    "Falls Sie bereits \"The Answer 2.03\", \"Zodiac's Point 3.3\" oder \"The Answer 3.00\" (im JANUS-Modus) "
  150.         "auf Ihrem System installiert haben, können Sie die Pointparameter "
  151.         "und die Nachrichten der alten Installation für MicroDot "
  152.         "übernehmen.\n\n"
  153. ))
  154.  
  155. (set #taconvfile-msg "Bitte geben Sie den Namen Ihrer \"The Answer\"-Konfigurationsdatei an.")
  156.  
  157. (set #taconvfile-help
  158. (cat    "Sie haben sich entschieden, Ihre \"The Answer\"-Konfiguration "
  159.         "für MicroDot zu übernehmen. Dafür wird der Pfad und Dateiname "
  160.         "Ihrer \"The Answer\"-Konfigurationsdatei benötigt. Diese Datei "
  161.         "befindet sich normalerweise in \"S:AnswerII.cfg\"."
  162. ))
  163.  
  164. (set #zpconvfile-msg "Bitte geben Sie den Namen Ihrer \"Zodiac's Point\"-Konfigurationsdatei an.")
  165.  
  166. (set #zpconvfile-help
  167. (cat    "Sie haben sich entschieden, Ihre \"Zodiac's Point\"-Konfiguration "
  168.         "für MicroDot zu übernehmen. Dafür wird der Pfad und Dateiname "
  169.         "Ihrer \"Zodiac's Point\"-Konfigurationsdatei benötigt. Diese Datei "
  170.         "befindet sich normalerweise in der Point-Schublade unter dem "
  171.         "Namen \"config.zp\"."
  172. ))
  173.  
  174. (set #update-msg
  175. (cat     "Möchten Sie Ihre bestehende MicroDot-Installation updaten "
  176.         "oder komplett neu installieren? Auch bei einer Neuinstallation "
  177.         "bleiben Ihre Daten vollständig erhalten."
  178. ))
  179.  
  180. (set #update-help
  181. (cat    "Sie haben in dem ausgewählten Verzeichnis bereits MicroDot "
  182.         "installiert. Hier können Sie nun entscheiden, ob diese "
  183.         "Installation geupdatet werden soll (nur die Dateien "
  184.         "MicroDot, MicroDot.guide und LiesMich.txt werden ersetzt) "
  185.         "oder ob komplett neu installiert werden soll.\n"
  186.         "In beiden Fällen bleiben Ihre Datenbestände unangetastet."
  187. ))
  188.  
  189.  
  190. ;
  191. ; Procedures
  192. ;
  193.  
  194. (procedure checkv20
  195.     (set v20-flag 0)
  196.     (if (> (/ (getversion) 65536) 38)
  197.         (if (exists "MDInstall/MicroDotAGA" )
  198.             (if (>= (database "cpu") 68020 )
  199.                 (set v20-flag
  200.                     (askbool
  201.                         (prompt #want20)
  202.                         (help (#want20-help (database "cpu" ) ) ) 
  203.                         (default 1)
  204.                     )
  205.                 )
  206.             )
  207.         )
  208.     )
  209. )
  210.  
  211. (procedure do_ta3
  212.     (set doconvta-flag
  213.         (askbool
  214.             (prompt #ta3conv-msg)
  215.             (help #ta3conv-help)
  216.             (default 1)
  217.         )
  218.     )
  219.     (if doconvta-flag
  220.         (
  221.             (working "Konvertiere \"The Answer 3.00\"-Konfiguration...")
  222.             (run ( "MDInstall/TA3Conv %s" @default-dest ) )
  223.         )
  224.     )
  225. )
  226.  
  227. (procedure do_ta_conv
  228.     (set conffilename
  229.         (askfile
  230.             (prompt #taconvfile-msg)
  231.             (help #taconvfile-help)
  232.             (default "S:AnswerII.cfg")
  233.         )
  234.     )
  235.     (if conffilename
  236.         (
  237.             (working "Konvertiere \"The Answer\"-Konfiguration...")
  238.             (run ( "MDInstall/TAConv %s %s" conffilename @default-dest ) )
  239.         )
  240.     )
  241. )
  242.  
  243. (procedure do_zp_conv
  244.     (set conffilename
  245.         (askfile
  246.             (prompt #zpconvfile-msg)
  247.             (help #zpconvfile-help)
  248.             (default "convert.zp")
  249.         )
  250.     )
  251.     (if (<> conffilename "")
  252.         (
  253.             (working "Konvertiere \"Zodiac's Point\"-Konfiguration...")
  254.             (run ( "MDInstall/ZPConv %s %s" conffilename @default-dest ) )
  255.         )
  256.     )
  257. )
  258.  
  259. (procedure do_copy
  260.     (copyfiles
  261.         (source "MDInstall/MicroDot.guide")
  262.         (newname "MicroDot.guide")
  263.         (prompt "Kopiere MicroDot.guide...")
  264.         (help @copyfiles-help)
  265.         (confirm)
  266.         (infos)
  267.         (dest @default-dest)
  268.     )
  269.     (copyfiles
  270.         (source "MDInstall/")
  271.         (dest @default-dest)
  272.         (choices "MicroDot.info" "MicroDot-Netcall.info" "MicroDot-Terminal.info")
  273.         (prompt "Kopiere Piktogramme...")
  274.         (help @copyfiles-help)
  275.         (confirm)
  276.     )
  277.     (complete 42)
  278.     (if (exists "LiesMich.txt" )
  279.         (copyfiles
  280.             (source "LiesMich.txt" )
  281.             (dest @default-dest)
  282.             (optional nofail)
  283.             (prompt "Kopiere LiesMich.txt..." )
  284.             (help @copyfiles-help)
  285.             (confirm)
  286.             (infos)
  287.         )
  288.     )
  289.     (complete 43)
  290.     (copyfiles
  291.         (source "MDInstall/Rexx/")
  292.         (dest (tackon @default-dest "Rexx/"))
  293.         (pattern "#?.md#?rexx")
  294.         (optional nofail)
  295.         (prompt "Kopiere Rexx-Makros..." )
  296.         (help @copyfiles-help)
  297.         (confirm)
  298.         (infos)
  299.     )
  300.     (complete 46)
  301.     (if (exists "MicroDot.cfg" )
  302.         (copyfiles
  303.             (source "MicroDot.cfg")
  304.             (dest @default-dest)
  305.             (optional nofail)
  306.             (prompt "Kopiere MicroDot.cfg...")
  307.             (help @copyfiles-help)
  308.             (confirm)
  309.         )
  310.     )
  311.     (complete 47)
  312.     (copyfiles
  313.         (source "MDInstall/")
  314.         (dest @default-dest)
  315.         (pattern "md_#?.(pub|priv)")
  316.         (optional nofail)
  317.         (prompt "Kopiere Beispiel-Quoteheader...")
  318.         (help @copyfiles-help)
  319.         (confirm)
  320.     )
  321.  
  322.     (complete 49)
  323.     (if (exists "Point.txt" )
  324.         (copyfiles
  325.             (source "Point.txt" )
  326.             (dest @default-dest)
  327.             (optional nofail)
  328.             (prompt "Kopiere Point.txt..." )
  329.             (help @copyfiles-help)
  330.             (confirm)
  331.             (infos)
  332.         )
  333.     )
  334.  
  335.     (complete 50)
  336.  
  337.     (checkv20)
  338.  
  339.     (if (<> v20-flag 0 )
  340.         (copyfiles
  341.             (source "MDInstall/MicroDotAGA")
  342.             (dest @default-dest)
  343.             (newname "MicroDot")
  344.             (prompt "Kopiere MicroDot-Hauptprogramm...")
  345.             (help @copyfiles-help)
  346.             (confirm)
  347.         )
  348.         (copyfiles
  349.             (source "MDInstall/MicroDot")
  350.             (dest @default-dest)
  351.             (prompt "Kopiere MicroDot-Hauptprogramm...")
  352.             (help @copyfiles-help)
  353.             (confirm)
  354.         )
  355.     )
  356.     (complete 75)
  357. )
  358.  
  359. (procedure do_update
  360.     (copyfiles
  361.         (source "MDInstall/MicroDot.guide")
  362.         (confirm)
  363.         (prompt "Update MicroDot.Guide...")
  364.         (help @copyfiles-help)
  365.         (dest @default-dest)
  366.     )
  367.     (complete 52)
  368.     (if (exists "LiesMich.txt" )
  369.         (copyfiles
  370.             (source "LiesMich.txt" )
  371.             (dest @default-dest)
  372.             (confirm)
  373.             (prompt "Update LiesMich.txt..." )
  374.             (help @copyfiles-help)
  375.         )
  376.     )
  377.     (complete 54)
  378.     (copyfiles
  379.         (source "MDInstall/Rexx/")
  380.         (dest (tackon @default-dest "Rexx/"))
  381.         (pattern "#?.md#?rexx")
  382.         (optional nofail)
  383.         (prompt "Update Rexx-Makros..." )
  384.         (help @copyfiles-help)
  385.         (confirm)
  386.         (infos)
  387.     )
  388.  
  389.     (complete 60)
  390.  
  391.     (checkv20)
  392.  
  393.     (if (<> v20-flag 0 )
  394.         (copyfiles
  395.             (source "MDInstall/MicroDotAGA")
  396.             (dest @default-dest)
  397.             (newname "MicroDot")
  398.             (confirm)
  399.             (prompt "Update MicroDot..." )
  400.             (help @copyfiles-help)
  401.         )
  402.         (copyfiles
  403.             (source "MDInstall/MicroDot")
  404.             (dest @default-dest)
  405.             (confirm)
  406.             (prompt "Update MicroDot..." )
  407.             (help @copyfiles-help)
  408.         )
  409.     )
  410.     (complete 100)
  411.     (exit)
  412. )
  413.  
  414.  
  415. (procedure do_askconvert
  416.     (set olduserlevel (user 1) )
  417.     (set convert-mode
  418.         (askchoice
  419.             (prompt #converter-msg)
  420.             (help #converter-help)
  421.             (choices "Keine Installation" "The Answer 2.03" "The Answer 3.00" "Zodiac's Point 3.3")
  422.         )
  423.     )
  424.     (user olduserlevel)
  425.     (select convert-mode
  426.         (working)
  427.         (do_ta_conv)
  428.         (do_ta3)
  429.         (do_zp_conv)
  430.     )
  431. )
  432.  
  433. (procedure do_hd 
  434.     (set default-dest
  435.         (askdir
  436.             (prompt #install-hd-msg)
  437.             (help #install-hd-help)
  438.             (default @default-dest)
  439.         )
  440.     )
  441.     (set @default-dest
  442.         (tackon default-dest "MicroDot")
  443.     )
  444.     (if (exists (tackon @default-dest "MicroDot.prefs" ) )
  445.         (if (askbool
  446.                 (prompt #update-msg)
  447.                 (help #update-help)
  448.                 (default 1)
  449.                 (choices "Update" "Neuinstallation" )
  450.             )
  451.             (do_update)
  452.         )
  453.     )
  454.  
  455.     (makedir @default-dest
  456.         (infos)
  457.     )
  458.     (makedir (tackon @default-dest "Rexx" ) )
  459.     (do_copy)
  460.  
  461.     (if (> (/ (getversion) 65536) 36)
  462.     (
  463.         (do_askconvert)
  464.     ))
  465. )
  466.  
  467. (procedure do_format
  468.     (set olduserlevel (user 1) )
  469.     (textfile 
  470.         (dest #format-tmp)
  471.         (append "\n")
  472.     )
  473.     (message #format1-msg)
  474.     (working #format1-busy)
  475.     (set retval
  476.         (run #format1-cmd
  477.         )
  478.     )
  479.     (if (<> retval 0 )
  480.         (abort (#format-err-msg retval))
  481.     )
  482.     (complete 15)
  483.     (message #format2-msg)
  484.     (working #format2-busy)
  485.     (set retval
  486.         (run #format2-cmd
  487.         )
  488.     )
  489.     (if (<> retval 0 )
  490.         (abort (#format-err-msg retval))
  491.     )
  492.     (complete 30)
  493.     (delete #format-tmp)
  494.     (user olduserlevel)
  495. )
  496.  
  497. (procedure do_floppy
  498.     (set format-flag
  499.         (askbool
  500.             (prompt #floppy-askformat-msg)
  501.             (help #floppy-askformat-help)
  502.             (default 1)
  503.             (choices "Formatieren" "Weiter")
  504.         )
  505.     )
  506.  
  507.     (if (= format-flag 1)
  508.         (do_format)
  509.     )
  510.  
  511.     (askdisk 
  512.         (dest "MD-MAIN")
  513.         (prompt #insert1-msg)
  514.         (help #insert1-help)
  515.     )
  516.  
  517.     (set @default-dest "MD-MAIN:")
  518.     (do_copy)
  519.     (makedir "MD-MAIN:Transfer")
  520. )
  521.  
  522. (procedure copy-reqtools
  523.     (complete 93)
  524.     (if (exists "MDInstall/libs/reqtools.library" )
  525.         (copylib
  526.             (prompt #copying-reqtools)
  527.             (help @copylib-help)
  528.             (source "MDInstall/libs/reqtools.library")
  529.             (dest "Libs:")
  530.             (confirm)
  531.         )
  532.     )
  533. )
  534.  
  535. (procedure copy-aguide
  536.     (complete 95)
  537.     (if (exists "MDInstall/libs/amigaguide.library" )
  538.         (copylib
  539.             (prompt #copying-aguide)
  540.             (help @copylib-help)
  541.             (source "MDInstall/libs/amigaguide.library")
  542.             (dest "Libs:")
  543.             (confirm)
  544.         )
  545.     )
  546.     (complete 97)
  547.  
  548.     (if (exists "SYS:Utilities/MultiView" ) 
  549.         (
  550.             (tooltype (
  551.                 (dest (tackon @default-dest "MicroDot.guide") )
  552.                 (setdefaulttool "SYS:Utilities/MultiView" )
  553.             ))
  554.         )
  555.  
  556.         (if (exists "MDInstall/AmigaGuide" )
  557.             (copyfiles
  558.                 (source "MDInstall/AmigaGuide")
  559.                 (dest @default-dest)
  560.             )
  561.         )
  562.     )
  563. )
  564.  
  565. (procedure do_config
  566.     (complete 80)
  567.     (set configname (tackon @default-dest "microdot.cfg" ) )
  568.     (if (exists configname)
  569.         (
  570.             (set #cfgexist-realmsg #cfgexist-msg)
  571.             (if (exists (tackon @default-dest "microdot.autosortin" ) )
  572.                 (set #cfgexist-realmsg
  573.                     (cat #cfgexist-msg  "\n\nEs existiert ein konvertierter Netcallpuffer "
  574.                                            ( "mit %ld Bytes Länge, der beim ersten Start von MicroDot " (getsize (tackon @default-dest "microdot.autosortin" ) ) )
  575.                                            "automatisch einsortiert wird."
  576.                     )
  577.                 )
  578.             )
  579.             (message #cfgexist-realmsg)
  580.         )
  581.     )
  582.     (complete 81)
  583.     (working)    
  584.     (if (= floppy-install 0)
  585.         (
  586.             (set tmpargs ( "echo >>\"%s\" \"datadir = MD-DATA:*ntransferdir = MD-MAIN:transfer/\"" configname ) )
  587.             (run tmpargs)
  588.         )
  589.     )
  590.     (working)
  591.     (complete 90)
  592.     (tooltype (
  593.         (dest (tackon @default-dest "MicroDot") )
  594.         (noposition)
  595.         (setstack 4000)
  596.         (swapcolors)
  597.     ))
  598.     (tooltype (
  599.         (dest (tackon @default-dest "MicroDot-Netcall") )
  600.         (noposition)
  601.         (setstack 4000)
  602.         (swapcolors)
  603.     ))
  604.     (tooltype (
  605.         (dest (tackon @default-dest "MicroDot-Terminal") )
  606.         (noposition)
  607.         (setstack 4000)
  608.         (swapcolors)
  609.     ))
  610.     (tooltype (
  611.         (dest (tackon @default-dest "MicroDot.guide") )
  612.         (noposition)
  613.         (setstack 10000)
  614.         (swapcolors)
  615.     ))
  616. )
  617.  
  618.  
  619. ;
  620. ;
  621. ; GO!
  622. ;
  623. ;
  624.  
  625. (complete 0)
  626. (set olduserlevel (user 1) )
  627. (set floppy-install
  628.     (askbool
  629.         (prompt #install-where-msg)
  630.         (help #install-where-help)
  631.         (choices "Festplatte" "Diskette" )
  632.     )
  633. )
  634. (user olduserlevel)
  635. (complete 1)
  636. (if (= floppy-install 0)
  637.     (do_floppy)
  638.     (do_hd)
  639. )
  640.  
  641. (do_config)
  642.  
  643. ; Reqtools installieren
  644.  
  645. (copy-reqtools)
  646. (copy-aguide)
  647. (complete 100)
  648.